home *** CD-ROM | disk | FTP | other *** search
/ Australian Personal Computer 2002 November / CD 1 / APC0211D1.ISO / workshop / prog / files / ActivePerl-5.6.1.633-MSWin32.msi / _622def831f9a1c5d61addcc7666336a8 < prev    next >
Encoding:
Text File  |  2002-06-17  |  1.9 KB  |  74 lines
  1. /*
  2.  * tkWin.h --
  3.  *
  4.  *    Declarations of public types and interfaces that are only
  5.  *    available under Windows.
  6.  *
  7.  * Copyright (c) 1996 by Sun Microsystems, Inc.
  8.  *
  9.  * See the file "license.terms" for information on usage and redistribution
  10.  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  11.  *
  12.  * RCS: @(#) $Id: tkWin.h,v 1.4 1998/09/14 18:23:59 stanton Exp $
  13.  */
  14.  
  15. #ifndef _TKWIN
  16. #define _TKWIN
  17.  
  18. #ifndef _TK
  19. #include "tk.h"
  20. #endif
  21.  
  22. #define WIN32_LEAN_AND_MEAN
  23. #include <windows.h>
  24. #undef WIN32_LEAN_AND_MEAN
  25.  
  26. #ifdef BUILD_tk
  27. # undef TCL_STORAGE_CLASS
  28. # define TCL_STORAGE_CLASS DLLEXPORT
  29. #endif
  30.  
  31. /*
  32.  * The following messages are use to communicate between a Tk toplevel
  33.  * and its container window.
  34.  */
  35.  
  36. #define TK_CLAIMFOCUS    (WM_USER)
  37. #define TK_GEOMETRYREQ    (WM_USER+1)
  38. #define TK_ATTACHWINDOW    (WM_USER+2)
  39. #define TK_DETACHWINDOW    (WM_USER+3)
  40.  
  41. typedef void Tcl_HandleProc (ClientData, HANDLE);
  42.  
  43.  
  44. /*
  45.  *--------------------------------------------------------------
  46.  *
  47.  * Exported procedures defined for the Windows platform only.
  48.  *
  49.  *--------------------------------------------------------------
  50.  */
  51.  
  52.  
  53. EXTERN Window        Tk_AttachHWND _ANSI_ARGS_((Tk_Window tkwin,
  54.                 HWND hwnd));
  55. EXTERN HINSTANCE     Tk_GetHINSTANCE _ANSI_ARGS_((void));
  56. EXTERN HWND        Tk_GetHWND _ANSI_ARGS_((Window window));
  57. EXTERN Tk_Window    Tk_HWNDToWindow _ANSI_ARGS_((HWND hwnd));
  58. EXTERN void        Tk_PointerEvent _ANSI_ARGS_((HWND hwnd,
  59.                 int x, int y));
  60. EXTERN int        Tk_TranslateWinEvent _ANSI_ARGS_((HWND hwnd,
  61.                 UINT message, WPARAM wParam, LPARAM lParam,
  62.                 LRESULT *result));
  63.  
  64. EXTERN void        Tcl_WatchHandle _ANSI_ARGS_((HANDLE h, Tcl_HandleProc *proc, ClientData clientData));
  65.  
  66. EXTERN int        Lang_WinEvent _ANSI_ARGS_((Tk_Window tkwin,
  67.                 UINT message, WPARAM wParam, LPARAM lParam,
  68.                 LRESULT *result));
  69.  
  70. # undef TCL_STORAGE_CLASS
  71. # define TCL_STORAGE_CLASS DLLIMPORT
  72.  
  73. #endif /* _TKWIN */
  74.